home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / RequestMsg.cedzp < prev    next >
Text File  |  1995-03-09  |  4KB  |  105 lines
  1. /*
  2.    RequestMsg.rexx 1.0 (23.1.94) by Ueli Kaufmann
  3.    ARexx Skript für Zodiac's Point V37.115ß und Cygnus-Ed v2.12
  4.  
  5. Zweck:
  6. ------
  7.    Via MAPS Files requesten (Saug, Schluerf, Schmatz :)
  8. */
  9.  
  10. /*
  11.   o|_______________________________________________________________|o
  12.   o|                                                               |o
  13.   o|                                                               |o
  14.   o|      NewFiles - Point-Service des LINKSystemes LINK-CH1       |o
  15.   o|                                                               |o
  16.   o|   Wer diesen Service nicht mehr wuenscht, soll sich melden.   |o
  17.   o|                                                               |o
  18.   o|                                                               |o
  19.   o|  Aus folgenden Konferenzen werden die News hier aufgelistet:  |o
  20.   o|                                                               |o
  21.   o|  >archiv<.dfue.bin.amiga            >archiv<.dfue.bin.ms-dos  |o
  22.   o|  >archiv<.dfue.bin.atari              >archiv<.dfue.bin.unix  |o
  23.   o|  >archiv<.dfue.bin.mac                     >archiv<.dfue.dox  |o
  24.   o|                                                               |o
  25.   o|  c't.9xlistings                       fras.bin.* (nur amiga)  |o
  26.   o|                                                               |o
  27.   o|_______________________________________________________________|o
  28.   o|                                                               |o
  29.  
  30.  
  31.  
  32. Neue Dateien in Konferenz FRAS/BIN/NETWORKING:
  33.  0001 B   77k 10-12 01:15:47 T.ESSER@DARKNESS.gun ParNFSV1_0.lha
  34.  
  35. Neue Dateien in Konferenz FRAS/MINI-BINS:
  36.  0067 B   21k 10-12 00:59:56 T.ESSER@DARKNESS.gun xpkFASTV1_03.lha
  37. */
  38.  
  39. /*
  40.  Falls Sie eine Nachrichten-Uebersicht im obenstehenden Format
  41.  von ihrem Server bekommen und es Ihnen zu beschwerlich war,
  42.  den MAPS-Request von Hand zu schreiben, so muessen Sie von
  43.  nun an nur noch den Cursor auf dem gewuenschten file plazieren
  44.  und das Skript aktivieren. Das Skript erzeugt dann automatisch
  45.  den entsprechenden MAPS-Requestund sendet die Nachricht an
  46.  ZPoint weiter..
  47. */
  48.  
  49.  
  50. OPTIONS RESULTS
  51.  
  52. address "rexx_ced"
  53.  
  54. status 55         /* aktuelle Linie abfragen */
  55. line = RESULT
  56.  
  57. 'Beg of line'     /* Cursor auf Zeilen-Anfang stellen */
  58.  
  59. 'Next word'       /* Cursor auf naechstes Wort stellen */
  60.  
  61. status 46         /* aktuelle Cursor-X Pos (relativ zu Anfang Line = 1) */
  62. cursor = RESULT + 1
  63.  
  64. msgNum = substr(line,cursor,4)   /* 4-stellige Nachrichten-Nummer ergattern */
  65.  
  66.  
  67. 'Search for...' "Konferenz" 1 0 0 0    /* Rueckwaerts nach Konferenz suchen */
  68.  
  69. 'Next word'       /* Cursor auf Brett-Namen stellen */
  70.  
  71. status 46         /* aktuelle Cursor-X Pos (relativ zu Anfang Line = 1) */
  72. cursor = RESULT + 1
  73.  
  74. status 55         /* aktuelle Linie abfragen */
  75. line = RESULT
  76.  
  77. 'Search for...' ":" 1 0 1 0     /* Vorwaerts nach ':' suchen */
  78.  
  79. status 46         /* aktuelle Cursor-X Pos (relativ zu Anfang Line = 1) */
  80. dpoint = RESULT + 1
  81.  
  82. msgBoard = substr(line,cursor,dpoint-cursor) /* Boardname ergattern */
  83.  
  84. msgAddr = "/" || msgBoard || " " || msgNum   /* Request-Zeile generieren */
  85.  
  86. tmpfile = "t:request.tmp"
  87.  
  88. call open out,tmpfile,write      /* Temporaer-file oeffnen */
  89. call writech out,msgAddr         /* Request-Zeile schreiben */
  90. call close out                   /* Temporaer-file schliessen */
  91.  
  92. Address "ZPoint"
  93.  
  94. /*
  95. BOARDMENU         /* File-Infos kommen ins Privat-Verzeichnis */
  96. JUMPTOBOARD 3
  97. */
  98.  
  99. WRITEMESSAGE tmpfile "MAPS" "REQUEST"  /* Request an MAPS senden */
  100.  
  101. address "rexx_ced"
  102.  
  103. if rc = 0 then       /* moeglichen Fehler mitteilen */
  104.    OKAY1 "Nachricht konnte nicht verschickt werden.."
  105.